home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / MONOSPFX.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-13  |  1KB  |  34 lines
  1. PROGRAM TestMonochromeEffects;
  2.  
  3. {
  4. This program demonstrates the Monochrome Special Effects routines.
  5.  
  6. Source: "More On Monochrome Special Effects", TUG Lines Volume I Issue 6
  7. Author: Don Taylor
  8. Date: 6/11/85
  9. Last revised: 6/15/85  11:35
  10. }
  11.  
  12. {$I MONOSPFX.INC}
  13.  
  14. {====================}
  15.  
  16. BEGIN {TestMonochromeEffects}
  17.  InitMonoSPFX;
  18.  ClrScr;
  19.  WRITELN('Attribute Segment: ',AttributeSeg,'  Offset:  ',AttributeOfs);
  20.  WRITELN; WRITELN;
  21.  HiInt;     WRITELN('This is high-intensity, normal video.');
  22.  Reverse;   WRITELN('This is high-intensity, reverse video.');
  23.  LoInt;     WRITELN('This is low-intensity, reverse video.');
  24.  Blink;     WRITELN('This is low-intensity, reverse blinking video.');
  25.  UnBlink;   WRITELN('This is low-intensity, reverse non-blinking video.');
  26.  NormVideo; WRITELN('This is normal, high-intensity video.');
  27.  Blink;     WRITELN('This is high-intensity, blinking video.');
  28.  LoInt;     WRITELN('This is low-intensity, blinking video.');
  29.  UnBlink;   UnderLine;
  30.  HiInt;     WRITELN('This is high-intensity, underlined video.');
  31.  LoInt;     WRITELN('This is low-intensity, underlined video.');
  32.  HiInt;     WRITELN('This is high-intensity, underlined video.');
  33.  NormVideo
  34. END. {TestMonochromeEffects}